home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / CED / cedscripts / ExecuteLine.ced < prev    next >
Text File  |  1993-07-07  |  646b  |  26 lines
  1. /*
  2. ** ExecuteLine.ced
  3. **
  4. ** $VER: ExecuteLine.ced 1.0.1 (3.6.93)
  5. **
  6. ** This script executes the current line as a CLI command or as a Rexx line if
  7. ** the first argument is R.
  8. **
  9. ** This script requires CygnusEd Professional v3.5 (or later) to run.
  10. **
  11. ** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
  12. */
  13.  
  14.  
  15. OPTIONS RESULTS                    /* Tell CygnusEd to return results when appropriate. */
  16.  
  17.  
  18. STATUS LINEBUFFER                /* Ask for a copy of the current line. */
  19. ARG Mode
  20. IF (Mode = 'R') THEN
  21.     INTERPRET RESULT            /* Get ARexx to interpret the line or */
  22. IF (Mode ~= 'R') THEN
  23.     ADDRESS COMMAND RESULT            /* get DOS to interpret the line. */
  24.  
  25. EXIT 0
  26.